home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / vbptu10.zip / DBG.FRM < prev    next >
Text File  |  1994-03-02  |  3KB  |  97 lines
  1. VERSION 2.00
  2. Begin Form DBG 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "(c) Copyright 1994 M.Brewerton"
  5.    ClientHeight    =   1440
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7155
  9.    Height          =   1845
  10.    Left            =   1050
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1440
  13.    ScaleWidth      =   7155
  14.    Top             =   1140
  15.    Visible         =   0   'False
  16.    Width           =   7275
  17.    Begin TextBox status 
  18.       Height          =   495
  19.       Left            =   120
  20.       LinkItem        =   "textr"
  21.       LinkTopic       =   "vb_PTU|dbgr"
  22.       TabIndex        =   0
  23.       Top             =   120
  24.       Width           =   6975
  25.    End
  26.    Begin Label Label1 
  27.       AutoSize        =   -1  'True
  28.       BackColor       =   &H00C0C0C0&
  29.       Caption         =   "Sender Form Version 1.a For VB_PTU.EXE"
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "MS Sans Serif"
  33.       FontSize        =   13.5
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   360
  37.       Left            =   360
  38.       TabIndex        =   1
  39.       Top             =   840
  40.       Width           =   6105
  41.    End
  42. End
  43.  
  44. Sub Form_Click ()
  45.    Call TESTDDE
  46. End Sub
  47.  
  48. Sub Form_Load ()
  49. On Error GoTo linkerro:
  50.     Rem ** THE VB_PTU.EXE MUST BE RUNNING BEFORE YOU **
  51.     Rem ** USE 'SHOW.DBG' IN YOUR APPLICATION **
  52.  
  53.     Rem ** This line will open the DDE to between the **
  54.     Rem ** text box on this form and one in the VB_PTU app **
  55.  
  56.     status.LinkMode = 1     ' automatic linking
  57.  
  58.     Rem ** In case, you wish to adjust the way you send data to
  59.     Rem ** VB_PTU.EXE, you will need this data **
  60.  
  61.     Rem ** LinkTopic is "VB_PTU|dgbr"
  62.     Rem ** Linkitem is  "textr"
  63. back:
  64. Exit Sub
  65. linkerro:
  66.     MsgBox "Unable To Setup DDE Link"
  67.     Rem ** You could place a line here using shell to load VB_PTU.EXE if not loaded **
  68. Resume back:
  69. End Sub
  70.  
  71. Sub status_Change ()
  72.   Rem ** SEND DATA IN DBG.STATUS TO VB_PTU.EXE **
  73.   dbg.status.LinkPoke
  74. End Sub
  75.  
  76. Sub TESTDDE ()
  77.     If status.LinkMode = 0 Then status.LinkMode = 1
  78.     Call debugstatus("/OPENLOG=c:\new.log")
  79.     Call debugstatus("/LANON"): Call debugstatus("/LTIMEON")
  80.     Call debugstatus("About to Start FOR/NEXT Loop 5000")
  81.     For u = 1 To 5000
  82.        Call debugstatus("In U Loop " + Str$(u))
  83.     Next u
  84.     Call debugstatus("Finished Loop")
  85.     Call debugstatus("/REPORTSTATUS")
  86.     Call debugstatus("Hello")
  87.     Call debugstatus("/LOGTHISFILE=" + "c:\autoexec.bat")
  88.     Call debugstatus("/CLOSELOG")
  89.     Call debugstatus("/LANOFF"): Call debugstatus("/LTIMEOFF")
  90.     For i = 1 To 200
  91.     Next i
  92.     Call debugstatus("/APPENDLOG=c:\new.log")
  93.     Call debugstatus("Nearly Finished.")
  94.     Call debugstatus("/CLOSELOG")
  95. End Sub
  96.  
  97.